home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)td.d64 / thunderbird.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  138 lines
  1. 10 REM-ADAPTED FOR 64 BY COMPUCATS 680 W BEL AIR AVE ABERDEEN MD 21001
  2. 15 REM-ORIGINAL FOR VIC 20 BY DAVE SANDERS IN COMPUTE! MAGAZINE
  3. 20 PRINT"[147]":POKE53280,2:POKE53281,1
  4. 25 PRINTSPC(86)"   [146]  [146]  [146]  [146]  [146]  [223] [146]   [223][146]    [146]   [223][146]"
  5. 27 PRINTTAB(7)" [146]     [146]  [146]  [146]  [146][223] [146]  [146]  [146]  [146][192]   [146] [169]"
  6. 30 PRINTTAB(7)" [146]   [146]  [146] [223] [146][169]  [146]  [146]   [146][169]    [146]  [146][223][223][146]"
  7. 35 PRINTSPC(92)"  [223][146]  [146]   [223][146]   [223][146]"
  8. 37 PRINTTAB(12)" [146][185] [146]  [146]  [146]  [146]  [146]  [146]"
  9. 40 PRINTTAB(12)" [146][184] [146]  [146]   [146][169]  [146]  [146]"
  10. 45 PRINTTAB(12)"  [146][169]  [146]  [146][223][223][146]   [146][169]"
  11. 50 PRINTSPC(87)"[144]ADAPTED BY THE COMPUCATS"
  12. 51 PRINT:PRINT:PRINT:PRINT:PRINT
  13. 55 PRINTTAB(10)"[145]PRESS F1 TO BEGIN":FORT=1TO100:NEXT
  14. 58 GETA$:IFA$=CHR$(133)THEN90
  15. 60 PRINTTAB(10)"[145]PRESS F1 TO BEGIN":FORT=1TO200:NEXT
  16. 65 GOTO55
  17. 90 HI=0
  18. 100 V=54272:F=125:P1=1:L=1:SC=0:K=1:M=1065
  19. 105 PRINT"[147]":POKE53280,14:POKE53281,6
  20. 110 POKEV+24,15:POKEV+6,240:POKEV+5,128:POKEV+4,33
  21. 115 POKEV,50:POKEV+1,60
  22. 120 PRINT""
  23. 125 PRINTTAB(1)"[158][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
  24. 130 PRINTTAB(1)"[209][209][209][209][209][209][215][158][209][209][209][209][209][209][209][209][209][209][209][209][215][158][209][209][209][209][209][209][209][209][209][209][209][209][209][215][158][209][209][209][209]"
  25. 135 PRINTTAB(1)"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
  26. 140 PRINTTAB(1)"[209][209][209][209][209][209][209][209][209][209][215][158][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][215][158][209][209][209][209][209][209][209][209][209]"
  27. 145 PRINTTAB(1)"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
  28. 150 PRINTTAB(1)"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
  29. 155 PRINTTAB(1)"[159][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][215][159][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
  30. 160 PRINTTAB(1)"[209][209][209][209][209][209][209][209][209][209][215][159][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][215][159][209][209][209][209]"
  31. 165 PRINTTAB(1)"[156][209][209][209][209][209][215][156][209][209][209][209][209][209][209][215][156][209][209][209][209][209][209][209][209][209][209][209][209][215][156][209][209][209][209][209][209][209][209][209][209][209]"
  32. 170 PRINTTAB(1)"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][215][156][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][215][156][209][209][209][209][209][209]"
  33. 175 FORI=1945TO2022:POKEI,65:NEXTI:J=87
  34. 180 FORI=55336TO55374:POKEI,7:NEXT:POKEV,135:POKEV+1,33
  35. 185 FORI=56217TO56254:POKEI,5:NEXT
  36. 190 FORI=56257TO56294:POKEI,5:NEXT:POKE1985,J:POKE1990,J:POKE2000,J:POKE2007,J
  37. 195 POKE2022,J:POKE2017,J
  38. 200 FORI=55335TO56295STEP40:POKEI,14:NEXT
  39. 204 POKEV,30:POKEV+1,25
  40. 205 FORI=1024TO1984STEP40:READA:POKEI,A:NEXT
  41. 207 POKEV,195:POKEV+1,16
  42. 210 FORI=1063TO2023STEP40:READA:POKEI,A:NEXT
  43. 212 POKEV,143:POKEV+1,12
  44. 220 FORI=55296TO56256STEP40:POKEI,14:NEXT
  45. 222 FORI=1024TO1063:POKEI+V,14:NEXT
  46. 224 FORI=1024TO1063:READA:POKEI,A:NEXT
  47. 225 POKEV,0:POKEV+1,0
  48. 230 RESTORE:IFP1=>2THEN350
  49. 235 X=1:Y=1:DX=1:DY=1:POKEM,85:POKEM+1,88:POKEM+2,73
  50. 260 IFL<3THEN670
  51. 270 POKE1223,147:POKE1263,133:POKE1303,131:POKE1343,143
  52. 275 POKE1383,142:POKE1423,132:GOTO670
  53. 300 PRINT"[144]";TAB(11)SC
  54. 305 IFSC>HITHENHI=SC
  55. 307 PRINT"[145]"TAB(33)HI
  56. 310 RETURN
  57. 350 FORI=1506TO1542:POKEI,81:NEXT:FORI=1506TO1542:POKEI+V,7:NEXT
  58. 360 IFP1=>3THENPOKE1715,J:POKE1725,J:POKE1835,J
  59. 370 IFP1=>4THENPOKE1875,J:POKE1918,J:POKE1958,J
  60. 380 IFP1=>5THENPOKE1550,J:POKE1560,J:POKE1570,J
  61. 390 GOTO235
  62. 400 SC=SC-F:G=M+1:IFHI=SC+FTHENHI=HI-F
  63. 405 POKEG+40,77:POKEG+V+40,1:G=G+40:POKE53281,4
  64. 410 IFPEEK(G+40)=81ORPEEK(G+40)=65THENPOKEG,81:POKEG+V,9:GOTO440
  65. 415 IFPEEK(G+40)=JTHENPOKEG,81:POKEG-40,81:G=G-40:POKEG+V,9:POKEG+V+40,9:GOTO440
  66. 420 IFG>2022THENPOKEG,81:POKEG+V,9:GOTO440
  67. 425 IFPEEK(G)=77THENPOKEG+40,78:POKEG+V+40,1:G=G+40:GOTO410
  68. 430 GOTO405
  69. 440 IFPEEK(G-1)=32THENPOKEG-1,81:POKEG-1+V,9
  70. 445 IFPEEK(G+1)=32THENPOKEG+1,81:POKEG+1+V,9
  71. 450 POKEG-40,32:G=G-40:IFG<1104THEN460
  72. 455 GOTO450
  73. 460 FORN=100TO0STEP-10:POKEV+1,N:FORT=1TO30:NEXT:NEXT
  74. 470 X=INT(RND(1)*36+1):DY=1:Y=1:DX=1:IFX=>20THENDX=-DX
  75. 475 IFX=<20THENDX=+DX
  76. 500 GOSUB300
  77. 510 POKE53281,6
  78. 515 GOTO670
  79. 530 FORI=1TO15:FORN=100TO50STEP-1:POKEV+1,N:NEXTN
  80. 535 FORN=50TO100:POKEV+1,N:NEXTN:POKEV+1,0:NEXTI:P1=P1+1
  81. 540 SC=SC+1000:POKEV+1,60:GOSUB300
  82. 545 FORT=1TO50:NEXTT:POKEV+1,0
  83. 550 GOTO100
  84. 560 IFL>4THEN562
  85. 561 GOTO600
  86. 562 P1=1:FORA=1TO7:POKE53281,A:POKEV+1,INT(RND(1)*30+10)
  87. 565 FORB=15TO1STEP-1:POKE53280,B:NEXTB:NEXTA
  88. 570 POKE53280,6:POKEV+1,0
  89. 575 GOTO900
  90. 600 IFL<=4THEN605
  91. 602 GOTO615
  92. 605 L=L+K:IFL>2THEN612
  93. 608 POKE1223,147:POKE1263,133:POKE1303,131:POKE1343,143
  94. 610 POKE1383,142:POKE1423,132
  95. 612 X=20
  96. 615 DX=1:Y=1:DY=1:IFL=2THENPOKE53281,2
  97. 617 IFL=3THENPOKE53281,8
  98. 618 IFL=4THENPOKE53281,9
  99. 620 FORI=1TO20:READA:POKEV+1,INT(A/2):POKE53280,INT(I/2):FORT=1TO50:NEXT:NEXT
  100. 625 POKEV+1,0:RESTORE:POKE53280,14
  101. 630 DX=-DX:DY=+DY:GOTO670
  102. 650 IFM<1066THEN670
  103. 655 POKEM-2,85:POKEM-1,88:POKEM,73:POKEM+1,32:POKEM+2,32:M=M-2:GOTO670
  104. 660 IFM>1098THEN670
  105. 665 POKEM+2,85:POKEM+3,88:POKEM+4,73:POKEM+1,32:POKEM,32:M=M+2
  106. 670 POKEBO,32:BO=1065+X+40*Y:POKEBO,42:POKEBO+V,1
  107. 675 X=X+DX:IFX=0ORX=37THENDX=-DX:POKEV+1,75
  108. 680 Y=Y+DY:IFY=-1THEN560
  109. 685 IFY=24THEN530
  110. 690 IFDX=0THENDX=1
  111. 700 POKEV+1,0:BD=1065+X+40*Y
  112. 710 IFPEEK(BD)=32THEN760
  113. 715 POKEBO,32:IFPEEK(BD)=JTHEN400
  114. 720 IFPEEK(BD)=81THENPOKEV+1,INT(RND(1)*20+30):SC=SC+50:GOSUB300:DY=-DY:GOTO670
  115. 725 IFPEEK(BD)=65THENPOKEV+1,40:SC=SC+200:DY=-DY:GOSUB300:GOTO670
  116. 740 IFPEEK(BD)=85ORPEEK(BD)=73THENPOKEV+1,80:SC=SC+75:GOSUB300:DY=-DY:GOTO670
  117. 750 IFPEEK(BD)=88THENPOKEV+1,60:SC=SC+25:GOSUB300:DX=0:DY=-DY:GOTO670
  118. 760 IF(PEEK(56320)AND4)=0THEN650
  119. 770 IF(PEEK(56320)AND8)=0THEN660
  120. 780 GOTO670
  121. 900 PRINT"[147]":POKE53281,15
  122. 905 PRINTSPC(132)"**GAME OVER**"
  123. 910 PRINTSPC(89)"YOUR SCORE IS: ";SC
  124. 915 PRINTSPC(89)"HIGH SCORE IS: ";HI
  125. 920 PRINTSPC(129)"[144]PRESS F1 TO PLAY AGAIN"
  126. 925 PRINTSPC(89)"PRESS F7 TO END"
  127. 930 GETA$:IFA$=CHR$(133)THEN100
  128. 935 IFA$=CHR$(136)THENSYS64738
  129. 940 GOTO930
  130. 1000 DATA218,218,218,218,160,160,148,136,149,142,132,133,146,130
  131. 1010 DATA137,146,132,160,160,218,218,218,218,218,218
  132. 1020 DATA218,218,218,218,160,134,137,146,147,148,160
  133. 1030 DATA147,129,148,133,140,140,137,148,133,160,218,218,218,218
  134. 1040 DATA160,160,160,160,160,147,131,143,146,133,186,160,160,160,160,160
  135. 1045 DATA160,160
  136. 1050 DATA160,160,160,160,160,136,137,160,147,131,143,146,133,186
  137. 1060 DATA160,160,160,160,160,160,160,160
  138.